00100	BEGIN
00200	INTEGER D,I1,I2,I3,I4,I5,I6,BD1,BD2,BD3,BD4,BD5;
00300	PRELOAD_WITH '60600000,'30300000,'14140000,'06060000,
00400	'606000,'303000,'141400,'060600,
00500	'6060,'3030,'1414,'0606;
00600	INTEGER ARRAY A[1:12];
00700	
00800	PRELOAD_WITH '60000000,'30000000,'14000000,'06000000,
00900	'600000,'300000,'140000,'060000,
01000	'6000,'3000,'1400,'0600,
01100	'60,'30,'14,'06;
01200	INTEGER ARRAY B[1:16];
01300	
01400	PRELOAD_WITH '40400000,'20200000,'10100000,'04040000,'02020000,
01500	'404000,'202000,'101000,'040400,'020200,
01600	'4040,'2020,'1010,'0404,'0202;
01700	INTEGER ARRAY C[1:15];
01800	
01850	D←0;
01900	FOR I1←1 STEP 1 UNTIL 8 DO 
02000	BEGIN BD1←A[I1];
02100	FOR I2←1 STEP 1 UNTIL 16 DO
02200	IF B[I2] LAND BD1 = 0 THEN
02300	BEGIN BD2←BD1 LOR B[I2];
02400	FOR I3←I2+1 STEP 1 UNTIL 16 DO
02500	IF B[I3] LAND BD2 = 0 THEN
02600	BEGIN BD3← BD2 LOR B[I3];
02700	FOR I4←I3+1 STEP 1 UNTIL 16 DO
02800	IF B[I4] LAND BD3 = 0 THEN
02900	BEGIN BD4 ← BD3 LOR B[I4];
03000	FOR I5←I4+1 STEP 1 UNTIL 16 DO
03100	IF B[I5] LAND BD4 =0 THEN
03200	BEGIN BD5 ← BD4 LOR B[I5];
03300	FOR I6←1 STEP 1 UNTIL 15 DO
03400	IF C[I6] LAND BD5 = 0 THEN D←D+15
03500	END
03600	END
03700	END
03800	END
03900	END;
04000	
04100	OUTSTR("NUMBER OF BOARDS = "&CVS(D))
04200	END;